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Caracteristicas Tecnicas 

• Unguagem BASIC 

• lb Kbytes de ROM. 

• 16 ou 48 Kbytes de memdria 
RAM. 

• 40 teclas e 160 fungdes. 

• GravagSo de programas em 
fita cassete comum. 

• Input e Output de dados. 

• Video: aparelhos de TV B&P 
ou colorido. 

• Fungdes especiais 
HIGH-SPEED 

• Som Opcional. 

• Joystick, impressora. 

Prego de langamento: 

Cr* 1 79.850,00 (16K) 

Cl* 249.850,00 (48K) 

(Prego sujelto a alteragSo) 
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Editorial 

Os companheiros do TK 

Hd alguns anos, ocorreu uma 
segunda revolugao na drea da Infor- 
mdtica; depois dos computadores do - 
mdsticos, vieram os computadores de 
baixo custo. O grande pioneiro foi o 
inglds Clive Sinclair que estd atual- 
mente inundando o mercado norte- 
americano com computadores ven- 
didos por menos de 100 ddlares. 

Este tipo de computador usa um 
basic cujo interpretador ocupa um 
ROM de 8k: o BASIC- TK. 

Vdrios computadores usam o 
BASIC- TK, entre eles o Sinclair 
ZX81, o Timex 1000 , o TK82-C, etc. 

Hd tambdm outras versOes am- 
pliadas do BASIC- TK: sao as utiliza- 
daspeloZX Spectrum na Inglaterra e 
aquela utilizada pelo TK85 no Brasil. 
Ambos os equipamentos podem re 
ceber Software escrito em BASIC - 
TK. 

Dado o baixissimo prego destes 
equipamentos (no Brasil o TK82-C d 
vendido por menos de 100 mil cruzei - 
ros) , a quant idade de usuarios d gi- 
gantesca. 

Criou-se, dentro do mundo da 
Informdtica, normalmente dominado 
pelos profissionais, um sub-conjunto 
todo especial: o dos usuarios do 
BASIC -TK. 

Eles sdo altamente significativos 
ndo sd pela qualidade, pois hd entre 
eles muitos amadores entendidos , 
mas tambdm pela espantosa quant i- 
dade. 

Para compartilhar desta enorme 
comunhdo de cdrebros, criamos esta 
Revisto. Ela serd o veiculo de inter - 
cdmbio entre os usudrios do BASIC- 
TK no Brasil. A 1dm disto ela trard to- 
das as mais importantes contribui - 
goes do pessoal Id de fora e (por que 
ndo?) Jevard ao Exterior todas as coi- 
sas bonitas que nds brasileiros esta- 
mos fazendo com os nossos TK. 
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PROGRAMA DO 
LEITOR 



Flip-Flop 

Samuel Ejchel 



uiu ELM 



1 REM SAMUEL EJCHEL 
1000 PRINT PT 2,10; FLIP-FLOP" 

^0 10 P RINT AT 4,0, "CONUERTER E 05 
EM ***+B****'- 
' 1020 DIM A (9) 

1030 DIM B (9) 

*4 104.0 LET 1=0 
m. 1050 LET 0 = 1 

1060 FOR S= 1 TO 9 
61070 LET ACS) = -1 
1080 LET B (5) =1 
1090 NEXT S 
1100 LET A (5) =1 
-1110 LET B ( 5 ) = — 1 
1120 PRINT AT 11,11, "»** 

1130 FOR 5=1 TO 9 

1140 IF A (5) =-l THEN PRINT AT 10 
, 10+5; "D 

1150 IF A(S)=1 THEN PRINT AT 10, 
10+S; " 

"1160 NEXT S 
1170 FOR 5=1 TO 9 

1180 IF ACS) < > B ( 5) THEN GOTO 132 
0 

I? 1190 NEXT 5 

1200 PRINT AT 21,0; " 

12 10 PRINT AT 19,12; 

1220 PRINT AT 20,2,* 

•*; I; ** FL IPS — FLOPS ** 

E NOUO R ? NT RT 21 * 0 ^ ' OUER UOGAR D 

1240 POKE 16437,255 
1250 PAUSE 30000 
' ,1260 LET O $ = INKEY % 

1270 IF 0$ = ••S• , THEN GOTO 1300 

1280 IF G$ = *N** THEN GOTO 1650 

1290 GOTO 1240 

1300 CLS 

1310 GOTO 1000 

1320 PRINT AT 21, 0, "EXECUTE UM F 
LIP-FLOP 

1330 POKE 16437,255 
1340 PAUSE 3000® 

1350 IF INKEY $ = **’* THEN GOTO 1350 
£1360 IF INKEY $ = "7" THEN GOTO ’140 

1370 IF INKEY $ = *’ 5 ** 

0 

1380 IF INKEY$="8" 

0 

1390 GOTO 1330 

1400 IF A < <J ) = — 1 THEN GOTO 1480 
1420 LET 1=1+1 

1430 IF <J = 1 OR «J =9 THEN GOTO 150 
0 

1440 LET A (U) =A (J) * f. -1) 

1450 LET fitJ-1) =fl(J-l) t(-l) 

1460 LET A(J+1) =A(J+1) *t-l) 

1470 GOT OK 1 130 

1460 PRINT AT 21,0; "FLIP-FLOP ER 
RADO TEMTE NOUAMENTE" 

- 1490 GOTO ,1330 

1500 LET All) =A (1) * C — 1) 

1510 LET A (9) =A (9) * C — 1) 

1520 IF U=1 THEN LET A(2)=AC2)*C 

1530 IF U = 9 THEN LET R (6) =A (8) * ( 

',2 1540 GOTO 1130 
J 1550 IF U=1 THEN GOTO 1330 
1560 PRINT AT 11,10+J, " * 

• f r 1570 LET U=J-1 
1580 PRINT AT 1 1 , 10 +U ; " m " 

1590 GOTO 1330 

1600 IF <J =9 THEN GOTO 1330 
1610 PRINT AT 11,10+J; " " 

1620 LET U = U + 1 
,1630 PRINT AT 11,10+J; 

1540 GOTO 1330 
1650 CLS 

1660 PRINT AT 11,11;" 

1670 STOP 

1680 SAUE "FLIP-FLOS" 

1690 RUN 
1700 STOP 



THEN GOTO 155 
THEN GOTOyl60 



E um QUEBRA-CABEQA em 
que se pretende converter a se- 
quencia SiBi*iiiS 
(* * = aster isco normal; 0 = aste- 
risco em fundo escuro) na nova 
****0 # ***no menor numero 
de conversOes ("FLIP-FLOP") 
possiveis. Valem as seguintes re- 
gras: 

1 ) S6 se pode comandar a conver- 
sao de um * em 0 — Nao vice- 
versa! 

2) Ao se converter um elemento 
da sequencia, os adjacentes 
tambem se convertem, ou seja, 
se o da direita for B e o da es- 
querda *, por exemplo, apos a 
ordem de conversao um se tor- 
na * e o outro 0, respectiva- 
mente. 

3) Os extremos sao "adjacentes", 
ou seja, comandada a conver- 
sao do elemento da extrema di- 
reita, o da extrema esquerda 
tambem se converte. 

No video e criado um indi- 
cador " m " que se move a direi- 
ta ou a esquerda por atuagao 
nas teclas 8 e 5 respectivamen- 
te. O indicador estando sob 
. um * , sua conversao 6 coman- 
dada por agao na tecla 7. O 
"joystick" pode ser usado em 
lugar das teclas; cuidado ape- 
nas com o botao de "disparo" 
pois, atuando nele, o programa 
e interrompido. 

O numero de conversOes 
("Flip-Flops") £ acumulado e 
informado ao fim do jogo. Ten- 
tativas erradas (de converter S 
diretamente em *) nao sao con- 
tadas. 

Devido a limitagOes de lin- 
guagem a conversao £ um pou- 
co demorada. Tenha calma e 
aguarde a ordem para novos 
movimentos. 

BOA SORTE! 
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Genius 



Carlos Eduardo Rocha Salvato 
(14 an os) 



Este programa 6 a adaptagao, 
para o TK, de um famoso brinque- 
do, no qual voc& demonstra sua 



habilidade em memorizar seqiien- 
cias. O programa exige expansao 
e £ auto-explicativo. 



e: n i u 



uoc 



1 REM CRRLOS EDURRDO ROCHR 
REM rA »-'-'"TO Bjj C.S?'" 

1010 CLS 
1020 FfiST 
1030 DIM Pi 10) 

104-0 DIM U$(10,d) 

1050 DIM 5 $ ( 10 . 3) 

1060 DIM F$(W,8) 

1070 CLS 

1030 PRINT "*l*m***»iG 
S *■»**■******■• 

1090 PRINT ,,ii "EM QUE NIVEL 
E G05T flR Ifl DE JOGflR '?" 

1100 PRINT "1 E O tWIS FfiCIL" 
1110 PRINT ”9 E O MR 13 DIFICIL" 
1120 PRINT "ESCOLHR UM NUMERO EN 
TRE 1 E 9" 

1130 POKE 164-37,255 
1140 PAUSE 30000 
1150 LET I $ = INKEY $ 

I*<“1" OR I*>“9" THEN GO 

TO 1130 

1170 LET DI=URL 
1130 LET F*tl)="l 
1190 LET F$(2)=i 
1200 LET F*(3)=" 

1210 LET F*i4>=" 

1220 LET F $ (S) = "| 

1230 FOR U=1 TO 5 
1240 LET B« IJ) =F* ( 1) 

1250 NEXT U 
1260 FOR J=1 TO 10 
1270 LET P ( J) = INT (RND*4>+1 
1230 NEXT U 
1290 CLS 

1300 PRINT '' 




1310 PRINT " 
E N I U 5 | 
^Jg^PRINT" 



I T K 3 2 



C -- G 



1330 FOR N=1 to 4 iUEL * “ ° 1 ' “ * " 
134-0 GOSUB 1770 
1350 NEXT N 
1360 PRUSE 100-(DI410) 

1370 FOR U = 1 TO 8 
1380 FOR L = 1 TO U 

RND*4-) [ + l DI>S THEN LET =INT 1 

14-00 LET N=P(L) 

141© GOSUB 1360 
1420 PRUSE 50 
1430 GOSUB 1770 

1440 IF DI >6 THEN GOSUB 1940 

145© NEXT L 

1460 FOR L=1 TO U 

1470 POKE 16437 , 255 

1480 PRUSE 300-i20*N) 

1420 LET I $ = INKEY $ 

1500 IF 1*="” THEN GOTO 1650 
1510 IF I*<" 1" OR X$> '4-'* THEN GC 
TO 1470 

1520 LET N=URL (1$) 

1530 GOSUB I860 



1540 
1550 
1560 
1570 
RT OS 
1580 
1590 
1600 
1610 
1620 
1630 



IF N<>P(L) THEN GOTO 1650 
GOSUB 1770 
NEXT L 

PRINT RT 4,8; "NUMERO DE RCE 

PRUSE 50 
NEXT U 
PRUSE 100 
CLS 

PRINT RT 11, 

PRINT RT 12 / 




1640 GOTO 1700 

1650 PRINT RT 16,0; “UOCE ERROL*.. 



CERTO ERR ; 

1670 FOR R=1 TO U 
1680 PRINT P(R) 

1690 NEXT R 

No5®MENTE T '>S T 19 ' C '" OUER TENTPR 
1710 POKE 16437 , 255 
1720 PRUSE 30000 
1730 LET I$=INKEY$ 

1740 IF I $ = ’* 3 *’ THEN RUN 
1750 IF THEN GOTO 2070 

1760 GOTO 1710 
1770 FOR 0=1 TO 5 

IF N=1 THEN LET R=0 
IF N =2 THEN LET R =3 

IF N =3 THEN LET R = I6 

1310 IF N=4 THEN LET R =24 
1820 PRINT RT (0*1) +4 , R; F$ (©) 
1330 NEXT O 

ill* return^ T 7 ' fl+3;CHRt <N+iS6 > 

1860 FOR 0=1 TO 5 
1870 IF N = 1 THEN LET R =0 
IF N =2 THEN LET R =3 
IF N =3 THEN LET R = 16 
1900 IF N = 4 THEN LET R=24 
1910 PRINT RT (0*1) +4,R; B* (Q) 
1920 NEXT O 
1930 RETURN 

1940 LET 3 = INT (RND*24) +1 
195© FOR 0=1 TO 5 
1960 FOR U = 1 TO 5 
1970 LET U$(U)=” 

1980 NEXT U 

1990 PRINT RT (0*1) tlO,S; F$ (O) 
200© NEXT O 

2010 PRINT RT 13,S + 3.;CHR$ (INT C 
RND*4) *1*156) 

2020 PRUSE 20 



17S0 

1790 

1800 



1330 

1390 



2030 

2040 

2050 

2060 

2070 

2030 

2090 

2100 

2110 

2120 



FOR U=1 TO 5 

NEXT^U^ (W * 1J +10/S; U$(U) 

RETURN 

CLS 

PRINT RT 11 # 11, #, SS3'* 

STOP 

S RUE ‘’GENIUS 4 ’ 

RUN 

STOP 
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Desenho 

Luis Fernando B. P. Mello Barreto 
(12 an os) 

Voc& pode fazer desenhos in- 
criveis na tela, mas tome cuidado! 
Se voc& bater na moldura o pro- 
grama pararci. Voc& pode compe- 
tir com seus amigos para ver guem 
faz o desenho mais bonito, sem ba- 
ter na moldura. 

Comandos: 

Linha conti'nua: 5 = esquerda 
8 = direita 

6 = baixo 

7 = cima 

Linha tracejada: 1 = esquerda 

2 = direita 
4 = baixo 

3 = cima 




1 REM DESENHO 

2 REM LUIS FERNANDO S ^ P « MELLO 

BARRETO 

10 FOR N=0 TO 20 

20 PRINT RT N, 0; BT N / 3i; ,, i 

30 NEXT N 

4-0 FOR N=0 TO 31 

50 PRINT RT 21,N; "■";AT 0 , N; "■ 

60 NEXT N 
70 LET X = 1 
30 LET Y = 1 
90 PRINT RT X,Y; 

10© POKE 154-37 / 255 
110 PAUSE 3000© 



120 

X 


IF 


INKEY * = ” S'* 


THEN 


LET 


1 

> 

II 

> 


130 

x 


IF 


INKEY $ = *' 5 " 


THEN 


LET- 


X =X -f 


14-0 

x 


IF 


INKEY $ = " 7 " 


THEN 


LET 


X =x — 


150 

x 


IF 


INKEY$ = ,, 3 M 


THEN 


LET 


Y = Y + 


ISO 

2 


IF 


INKEY $ = **4-'* 


THEN 


LET 


X =X 4- 


170 

2 


IF 


INKEY$="3" 


THEN 


LET 


X =X — 


130 

2 


IF 


INKEY$ = *'2** 


THEN 


LET 


Y = Y + 


190 


IF 


INKEY $ = " I 1 * 


THEN 


LET 


1 

> 

II 

> 



200 GOTO 90 
210 STOP 

220 SAUE ,, DE5ENHB r# 
230 RUN 
24.0 STOP 



QUEBRA - CABEQA 





O Banqueiro 
e o Ministro 

Era uma vez um pequeno pafs f ictfcio 
no qual havia apenas um banqueiro e um 
unico super- ministro. 

Um dia o super-ministro, preocupa- 
do com uma previsao de inf lagao de 280 % 
ao ano, chamou o banqueiro e disse: 

“Vou tabelar os juros: deste momento 



MICROHOBBY 4 




em diante voc£ poder£ cobrar, no m£xi- 
mo, 100% ao ano." 

O banqueiro empalideceu . Af inal de 
contas ele tamb£m estava prevendo uma 
inflagao de 280% ao ano. Muito esperta- 
mente, entao„ fez uma contraproposta: 
"Para facilitar os calculos, posso co* 
brar 50% por semestre? Isto nao vai alte- 
rar nada pois estou dividindo o prazo ao 
meio, mas tamb£m estou reduzindo a taxa 
de juros a metade." 

O minlstro pensou com seus botOes: 
"Este cara pensa que sou idiota: 50% 
ao semestre nao 6 a mesma coisa que 
100% ao ano: no primeiro semestre o ca- 
pital fica multiplicado por 1 ,5 e no segun- 
do semestre novamente por 1,5 logo no 
fim do ano o capital £ multiplicado por 1 ,5 
x 1 ,5 = 2,25. Isto corresponde a uma taxa 
de 1 25% ao ano. Mas como isto £ inferior a 
180% ao ano, ja que a inflagao sera de 
280%, eu ainda saio ganhando." E autori- 
zou a mudanga. 

O banqueiro, por£m, ainda nao esta- 
va satisfeito: 

" Para facilitar mais ainda, ao inWs de 
dividir a taxa de juros e o prazo por 2, sera 
que poderia dividir por 4?" 

"Explique-se melhor"' bravejou o 



super- ministro. 

"Calma" respondeu o banqueiro, 
"estou apenas propondo cobrar 25% por 
trimestre". 

Mais uma vezo super- ministro fez um 
calculo mental: 

1,25 x 1,25 x 1,25 x 1,25 = 2,44 
como isto corresponds a 1 44% ao ano e o 
m^ximo suportavel seria 180%, o super- 
ministro topou. 

Matreiramente o banqueiro pensou: 

"Positivamente este sujeito, a um 
trouxa. Vou aproveitar a chance!" 

Assumiu um ar o mais cAndido possi- 
vel e arriscou: 

"Bern, para nao ser obrigado a con- 
sults -lo a toda hora, poderiamos estabele- 
cer uma coisa: eu divido a taxa de juro de 
100% por n e o ano tambSm por n, j£ que 
isto nao faz diferenga. Desta maneira con- 
forme o caso, eu poderia cobrar juros por 
semestre, ou por mes ou ate por dia." 

O super- ministro fez um r^pido c4l- 
culo, estendeu a mao e disse: 

"Negdcio fechado!" 

Mais do que depressa, antevendo 
uma taxa de juros por segundo o banquei- 
ro apertou a mao estendida e se retirou fe- 
liz. 



E agora perguntamos aos leitores: 

A) Qual dos dois foi mais esperto? 

B) Se o banqueiro adotar como unidade 
de tempo o milesimo de segundo, um 
capital C, ao cabo de um ano aumen- 
tara para NC. 

Quanto vale N? 

C) Quanto vale o logaritmo neperiano 
deste numero N? Por que? 

Mais uma vez esperamos receber 
suas respostas acompanhadas de um 
programinha que calcule a taxa de juro 
anual nos casos em que o banqueiro utili- 
ze como unidade de tempo o ano, o se- 
mestre, o trimestre, o mes, a semana, o 
dia, a hora, o minuto e o segundo. Espe- 
ramos, tambem, que voc£ entenda que o 
caso citado 6 ficticio! 

As cartas devem ser envidas para 
MICROMEGA P. M. D. Ltda. 

Caixa Postal n? 60081 
CEP 05096 - Sao Paulo - SP 

Contendo seu nome, enderego e al 
guns dados pessoais (idade, profissSo, 
etc.). 

A melhor carta que chegar a reda- 
g&o ate 30 de junho sera publicada, rece- 
bendo seu autor remuneragao corres- 
pondente a de um artigo. 



Solugao do quebra-cabega do n? zero 



O problema da pulga 

Edson Tadeu Tanaka 

Na revista n? 0 foi proposto o que- 
bra-cabega da pulga e eu resolvi aceitar 
o desafio. 

Vejamos como atacar o problema. 
Nas figuras , vemos a pobre pulguinha 
ap6s o seu 1? salto. Completado o salto, 
a tira e esticada, aumentando seu com- 
primento de 10 cm. Como o comprimen- 
to foi multiplicado por 2, isto e, de 10 cm 
passou para 20 cm, a posigao onde esta- 
va a pulga tambem foi deslocada, isto £, 
a posigao inicial 1 cm ap6s esticar trans- 
formou -se em 2 cm. Como mostra a figu- 
ra 2. A pulga, entao, da o 2? salto e passa 
da posigao 2 cm para a posigao 3 cm (fi- 
gura 3). Outro esticamento e o compri- 
mento da fita passa de 20 cm para 30 cm, 
isto e, aumentou de 1 ,5 vezes. Portanto, a 
posigao onde esta a pulga, 3 cm, passa a 
ser a posigao 3x1,5 = 4,5 cm (figura 4). 
E mais um salto (figura 5), e assim por 
diante. 

Nesse ponto eu desisti de fazer figu- 
ras e resolvi passar o problema para o meu 
TK82 (muito menos cansativo). 

A seguir este a listagem do progra- 
ma. E s6 apertar RUN e esperar a respos- 
ta. 

O programa utiliza somente 1 Kbyte. 
As variaveis utilizadas sao: POS (posigao 
da pulga), T (tempo decorrido), COMP 
(comprimento da tira), MULT (multiplica- 
dor para obter a nova posigao da pulga 
ap6s o esticamento), HORAS, MIN, SEG 
(horas, minutos e segundos). 

Ap6s aproximadamente 5 minutos de 
espera obtem-se a resposta: 3 horas, 26 



minutos e 7 segundos. Portanto, aalterna- • 
tiva correta 6aC. 

FIGURAS 



A 



Apos o 3? Salto 



4,5 5,5 



30 



Apos o 1? Salto 



-U4 
A 1 



B 

10 



Ap6s esticar 



A 



4- 

2 



_B 

20 



A 



Ap6s o 2? Salto 

-Ci 

2 3 



B 

20 



Apos esticar 



-4 1~ 

A 4,5 



B 

-»- 

30 



Nota da redagao: recebemos tambem ou 
tras respostas interessantissimas. Demos 
prefer^ncia h solugao do EDSON por ser 
completa, sem deixar de ser simples. 
Queremos, por^m, citar como mengao 
honrosa as solugSes de: 

Samuel Ejchel (e sua filha Lilian) 

Joao Fernando Coelho Noronha 
L. Pitaluga Jr. 

Ronald Sdnksen 

Nelson Armando dos Santos Couteiro 

Guy e Sylvain Harari (nivel profissional) 

Antonio Carlos Leao 

Silvio Moura Velho 

Luiz Nilton Palladino 

Carlos A. M. Pisciottano 

MaurizioP. G. G. Niccolai 

Roberto M. Bekman 

Frederico Alpino 

Antonio Tadeu Correa Bueno 

Walter Persson Hildebrandi 

Francisco de Sales G. C^ndido 



1 


REM 


PROBLEMA DR PULGR 


2 


REM 


EDSON TRDEU TRNRKR 


10 


FRST 


20 


LET 


P05 = 1 


30 


FOR 


T =2 TO 300-0 


40 


LET 


COMP- 10 *T 


50 


LET 


MULT =T / tT -*11 


60 


LET 


POS=POS*MULT fl 


70 


IF P05>=C0MP THEN GOTO 110 


80 


NEXT 


T 


90 


PRINT "SOLUCRO NRO CNCONTRR 


DO ** 






100 


STOP 


110 


LET 


HORR = INT (T/3600) 


1 20 


LET 


M IN ^ INT C (T-HORRf3600) / 


60) 






130 


LET 


SEG=T HORR *3600 -MIN *60 


140 


PRINT "SOLUCRO " ; HORR . HO 


R«S * 


' ; MIN; ” MINUTOS 


**; SEG; ** 


SEGUNDOS. ** 
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"Um encontro que nao prometia 
grande emogOes acabou tornandose uma 
agradavel surpresa. O mestre quando jo- 
ga contra um adversario, que e teorica- 
mente mais fraco, tende a jogar "na tbcni- 
ca", evitandograndescomplicagOes, pois 
o adversario vai errar mesmo. . . O pensa- 
mento criador b deixado de lado e joga-se 
apenas mecamcamente, baseado nos re- 
flexos da erudigao adquirida enr longos 
anos de pratica. Estas partidas normal 
mente sao magantes. A propria vaidade 
pode ser alimentada, mas nao aquela cu- 
riosidade criadora que transformou voce 
de um perna de pau num mestre. 

O encontro contra o TK82-C parecia 
tadadoa mais uma partida monbtona. Pri- 
meiro, pela velocidade com o que o TK 
responderia (quase que imediatamente 
no m'vel 0, e 15 segundos no nivel 1 ); e se- 
gundo, que eu ainda tinha la as minhas 
grandes duvidas de que um pequeno cas- 
sete pudesse me fazer frente. 

A primeira partida, porem, jogada 
em menos de cinco minutos, no m'vel 0, ja 
serviu para estimular a minha curiosida- 
de. Para quern joga "ao toque" (variante 
que as vezes se joga no Clube de Xadrez 
Sao Paulo em que nao £ permitido pensar: 
cada lance deve ser respondido imediata- 
mente), "ele" estava se samdo muito bem. 
Surpreendente foi no lance 21 quando o 



TK cometeu um erro muito comum de 
quern joga “ao toque", permihndo-medar 
o mate de uma forma que antes estava de- 
fendida. Uma reagao "humana", portan- 
to, e isto eu nao esperava de um computa- 
dor. 

Na segunda partida, jogada no m'vel 
2(15 segundos) foi que o TK me surpreen- 
deu realmente. Joguei alguns lances im- 
precisos e fiquei em posigao inferior! Tive 
de usar de toda a minha criatividade para 
“virar" a partida. No final podena ter da- 
do o mate um lance antes (31... Cg3 + em 
vezdodesnecess^rio31 ... Dgl +), massb 

0 fato de eu estar procurando um mate 
mais sofisticado, esteticamente bonito, ja 
demonstra como eu estava envoi vido na 
partida. A emogao de ver um mate bonito 
ofuscou a objetividade do mate mais sim- 
ples. Como se v£, beleza nao pOe mesa. 
TK 82-C vs. Herman Claudius (Nivel 0) 

1 eA c5 2 Cf3 Cc6 3 d4 cxd4 4 Cxd4 Cf6 
5 Cc3 e5 6 Cxc6 bxc6 

7 Be3 Be7 8 Bc4 0-0 9 0-0 Bb7 10 Dd3 d5 

1 1 exd5 cxd5 12 Ba6 Bxa6 

13 Dxa6 d4 MTadl Db6 15 Dxb6 axb6 16 

Bxd4 exd4 17 Txd4 Bc5 

18Td3 Tfe8 19Tfdl h620a4Cg421 Tld2 

Tel + + . 

TK 82-C vs. Herman Claudius (nivel 1) 

1 e4 c5 2 Cf3 Cc 6 3 d4 cxd4 4 Cxd4 Cf6 5 
Cc3e56Cf5 d57Bg5 d4 



8 Bxf6 gxf6 9 Cb5 Bxf5 10 exf5 a6 1 1 Ca3 
Bxa3 12 bxa3 Da5 + 

13 Dd2 Dxa3 14 Bd3 Tg8 15 0-0 0-0-0 16 
Dh6 Dd6 17 Bc4 Td7 18 Dxh7 Df8 
19 Dh4 Ce7 20 Dxf6 Tc7 21 BxF7 Rb8 22 
De6 Tg5 23 Tabl Txf5 
24 Bg6 Tf6 25 Dxe5 Cxg6 26 Dxd4 Cf4 27 
De4 Te7 28 Dc4 Ce2 + 29 Rhl Txf2 
30 Txf2 Dxf2 31 Dxa6 Dgl + 32 Txgl 
Cg3 + 33 hxg3 Th7 + 34 Dh6 Txh6 + + . 

A seguir fiz uma experiencia. Colo- 
quei a seguinte posigao na membria do 
computador: brancas — Rhl, De4, Ce8, 
Ph2; pretas - Ra8, Dg4, Tg8, Th8, Pa7, 
Pb7 (fig. 1 ). Disse que eu jogaria de pretas 
e mandei que fizesse o lance. Nos niveis 3 
e 4 o TK limitou-se a dar o xeque perpbtuo 
com 1 Cf7 + Rg8 2 Ce8 + Rh8 3 Cf7 + , 
etc. , mas no m'vel 5 em menos de cinco mi- 
nutos achou a solugao: 1 Cf7+ Rg8 2 
Ch6+! Rh8 3 Dg8 + !! Txg84Cf7+ 4. 

Foi uma experiencia divertida!" 

Nota da redagao: O programa TK XA- 
DREZ II b um programa protegido que 
nao pode ser duplicado por caminhos 
normals. Conseqiientemente a fita deve 
ser armazenada com cuidado, ao abrigo 
de fortes campos magnbticos. Nas instru- 
gbes, existe um erro de imprensa: para 
limpar totalmente o tabuleiro devemos di- 
gitar X0000 e nao X000. 
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Pr ogtQttHts do Mos 



MINI-INWSOR 



©■REM C-MICROMEGfl 1963 
1000 SLOW 
1005 RRND 
1010 LET K=2 
1015 LET 5=0 
1020 LET P=S 
1025 LET H = INT (RNDtlS) 

1030 LET R* = "JTV 

1035 FOR 0 = INT (RND*15) TO 19 
1040 CL5 

10 4-5 PRINT RT U , H - 1 ; fi $, RT 20, P-1 
1050 IF RBS m> =P RND U>9 RND IN 



KEY$ = 


"0 


" THEN GOTO 


1100 




1055 


XF 


INKEY $ = "5*‘ 


THEN LET 


P=P - 


(P >K) 
1060 


IF 


INKEr $ = “8 M 


THEN LET 


P=P + 



(P<15) 

1065 LET H=H+INT (RND*3) -1 
1070 LET H=H+(H'CK) - (H>15) 

1075 NEXT U 

1080 IF RBS (H-P) >2 THEN GOTO 10 
25 



1065 
1090 
1095 
1100 
1 105 



PRINT RT 5,5; "CONTRGEM=" ; 5 

PRUSE 120 

RUN 

FOR N = 19 TO U STEP -1 
PRINT RT N , P; *’ . ** ; RT 2© , P ; " * 



111© NEXT N 

1115 LET 5=5+10 

1120 PRINT RT U . H-K ; “ >X+X < " 

1125 GOTO 1025 

113© STOP 



1140 SRUE “MIN I - INURSOS” 
1145 PRINT "MINI- INURSOR “ 



1150 PRINT 
1155 PRINT 
SOBRE 5EU 
INR . " 

1160 PRINT 
1165 PRINT 
ERDR" 

1170 PRINT 
EITR" 

1175 PRINT 
URSOR 

ONR NR MESMR 



SE O INURSOR POUSflR 
UEICULO, O JOGO TERM 



5 = MOUIMENTO P/ESOU 
•8 = MOUIMENTO P/ DIR 



'0 = 



UOCE RTIRR NO IN 
O TIRO 50* FUNGI 

UERTICRL’* 

1180 PRINT "RPERTE NEU LINE PRRR 
CONTINURR- 
1185 INPUT G$ 

1190 GOTO 1000 



Mini - Invasor 

Este programa pode ser rodado utili- 
zando apenas 1 K de RAM! Consiste numa 
versao extremamente simplificada dos 
classicos joguinhos de "Invasores" gue 
descem do ceu. 

Um invasor desce e tenta pousar so 
bre seu veiculo que esta no chao. Se con- 
seguir, o jogo termina. Voce pode deslo- 
car o veiculo para a esquerda (Tecla 5) ou 
para a direita (Tecla 8). Pode tambem ten- 
tar destruir o invasor atirando nele (Tecla 
0). O tiro, porem, so saira se o invasor e o 
veiculo estiverem na mesma vertical. 

Dispondo de apenas 1 KdeRAM, vo- 
ce digitara apenas as linhade 1000 a 1 125. 

Se o seu computador nao tiver 
"SLOW" voc£ devera acrescentar as li- 
nhas. 



104-6 PRUSE 30 
1106 PRUSE 30 
1121 PRUSE 30 



A tela f icara piscando, mas dara para 
)ogar assim mesmo. 

Dispondo de ate 2 K , digite o progra 
ma inteiro (ate a linha 1190). Neste caso, 
para salvar o programa em fita, ao inves 
de digitar: 

SAVE "MIN1-1NVASOR" 

Voce podera usar a instrugao: 

GOTO 1 140 

Assim lazendo, quando voce recar- 
regar o que colocou na fita, o computa 
dor, apos receber o programa, comegara 
a executar o que vem na linha seguinte a- 
indicada . Neste caso, a linha a ser execu 
tada sera a 1 1 45 ( veja ma lores detalhes so- 
bre esta tecnica na segao “Dicas"). 
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Programs do Pies 

ESP: 

Extra Sensory 
Perception 



0|REM TESTE PflRRPSICOLOGICO 
C -MICROMEGR 1983 
1000 DIM X IS) 

1010 FOR X=1 TO S 
1020 LET X( IJ =0 
1030 NEXT I 
104-0 LET 01=0 
1050 LET X=0 
1060 LET 3=0 
1070 CLS 

1080 PRINT TAB 6; "TESTE PRRRP^IC 

OLOGIC0" 

1898 PRINT TAB 3; 



1100 PR I NT 

1110 PRINT "DIGITE R LETRA DR AL 
TERNATIUA E5COLHIDA E PRESSION 
E NEW LINE" 

1120 PRINT 

"R. . . . CLRRIUIDENCIR" 
"B. . . .PREMONICAO” 

"C .ESTUDO CONJUNTO 



1130 PRINT 
1140 PRINT 
1150 PRINT 
DE R E B" 
1160 PRINT 
STICOS DE 
OBTIDOS " 
1170 PRINT 



”D - 



• • CALCULOS E5TATI 
RESULT ADOS UR* 



1180 
1190 
R$ < > 
78 

1200 
E5TA 1 
1210 
1220 
1230 
1248 
*, '* 
1250 
ES 7 
1260 
1270 
HIDO 
1280 
1290 
ES“ 
1300 



INPUT R$ 

IF R$ < > "R" RND R$<>' B" AND 
C" RND R $ < > " D " THEN GOTO 10 

PRINT "R ESCOLHR DE 
COMF IRMADA7SIM =S " , "NRO =N" 
INPUT B$ 

IF B$="N" THEN GOTO 1070 
CLS _ 

PRINT RT 12 , 0; "ESCOLHR :";R 

PRINT RT 13,0; "OURNTOS TEST 

INPUT N 

PRINT RT 13,0; “NUHERO ESCOL 
DE TESTES =",N 
IF N > =50 THEN GOTO 1350 
PRINT " AC0N5ELHAH05 58 TEST 



PRINT "PARA TER 5IGMIFICADO 
EST RT 1ST I COR RMG5TRA DEUE TER , N 
O MINING, 25TESTES" 

1318 PRINT n DE5EJA MANTER ESTE N 
UMERO? (S OU N> " 

1320 INPUT B$ 

IF B$="S" THEN LET S=1 
IF SOI THEN GOTO 1230 
IF R$="D" THEN GOTO 1480 



1330 

1340 

1350 

1360 

137© 

1380 

1390 

EUEM 



DIM E(N) 

DIN R(N+5) 

CLS 
PRINT 
SER 

IT IUOS DE 
1400 PAUSE 
1410 CLS 
1420 PRINT 
TRNDO O NUMERO* 
1430 PRUSE 380 
1440 CLS 
1450 RAND 
1460 GOTO 1620 
1470 CLS 

1480 PRINT "NUMERO 



"05 ITENS DIGITRDG5 D 
NUMERGS INTEIRG5 POS 
8 R 9 INCLUSIVE" 

600 

M PODE COMECAR" , , "DIGI 
"E NEU LINE" 



DE SUCESSOS 



Ha alguns anos atrds um livro escrito 
por dois franceses, um dos quais ffsico nu- 
clear, despertou um grande interesse pe- 
lo estudo dos poderes extra- sensor ia is. Es- 
te livro "O Despertar dos M^gicos” 
tornou-se rapidamente um "best-seller" 
proporcionando um ganho espetacular a 
seus autores. Nao vamos agora discutir o 
oonteudo do livro, massim seusefeitos: fa- 
rejando a possibilidade de lucros fartos e 
imediatos, uma porgao de edi tores e auto- 
res inundou o mercado com livros e revis- 
tas “pseudo-cientfficas" onde se discutem 
temas indubitavelmente fascinantes: 
UFOs, piramides, deuses astronautas, po- 
deres parapsicolbgicos, etc. 

Como a credulidade humana (ao 
contrario da inteligencia) nao tern limites, 
prontamente o mercado absorveu tudo. 
Chegou-se inclusive a criar uma espbcie 
de "MAFIA PARAPSICOLOGICA" na 
qual um autor dava apoio e credibilidade 
a outro, criando uma verdadeira rede bi- 
bliografica aparentemente sbria mas que, 
obviamente, nao resiste a uma analise crf- 
tica mais aprofundada. 

Este proliferar de charlataes (lem- 
bram Uri Geller?) fez com que os verda- 
deiros cientistas, assustados.se afastassem 
de investigates nessa area, pelo temor 
de ver seu nome envoi vido nessa mafia. 
Porbm, rejeitar toda essa parafemalia cir- 
cense sem uma analise critica b uma atitu- 
de tao anti-cientifica quanto aceita-la sem 
ressalvas. 

Existe telepatia? Atb hoje nenhum es- 
tudo sbrio, cientffico, em condigOes con- 
troladas e reaiizado por pessoas isentas, 
conseguiu demonstrar que sim! 

Toda "demonstragao" da existencia 
de telepatia esta falseada pela ma-fe, 
charlataniceou, no minimo, ingenuidade 
na interpretagSo dos dados. 

Isto demonstra que a telepatia nao 
existe? De forma alguma! Isto demonstra 
apenas a necessidade de estudarmos estes 
fenomenos de maneira adequada. 

O programa ESP, por nos adaptado 
de uma publicagao francesa (Daniel Ma- 
vrakis), 6 uma primeira tentativa de se fa- 
zer algo neste sentido. O leitor poderd tes- 
tar com o auxflio de alguem muito impar- 
cial (seu TK) se ele ou algum familiar pos- 
suem dons parapsicologicos. 

O programa gera uma sbrie de nu- 
meros aleatbrios que o sujeito, ao ser tes- 
tado, tentara adivinhar. 

Se ele optar por CLARIVIDENCIA, 
estara testando sua habilidade em adivi- 
nhar um numero ja gerado. Se optar por 
PREMONIQAO, eletentara adivinhar um 
numero ainda a ser gerado num futuro 
que varia de 1 a 5 passos. 



Para que a experibncia tenha signif i 
cagao estatistica b conveniente escolher 
pelo menos 25 testes (o aconselhado sac 
50). O prbprio programa se encarrega de 
corrigir o calculo estatfstico quando o nu- 
mero e pequeno. 

Pode-se optar, ainda, por um simples 
estudo estatfstico de uma experiencia ja 
realizada. 

Neste caso o seu TK vai fornecer o va- 
lor de X 2 (KHI OUADRADO), grandeza 



estatfstica que correlaciona o numero de 
sucessos realmente obtidos com o numero 
de sucessos previstos teoricamente pelo 
calculo das probabilidades. 

Digamos, por exemplo, que vocb jo- 
ga um dado 70 vezes, tentando obter o nu- 
mero 3, e que voce consegue obtb-lo 15 
vezes. 

Quando o programa perguntar (na 
opgao D) "Quantos testes?", devemos di- 
gitar 70; "Quantos sucessos?" digitamos 



MICROHOBBY 8 






I 



14-90 INPUT X 

1500 PRINT X 

1510 PRINT "PROBRBILIDRDE TEORIC 

9 DE SUCESSODE CRDR TESTE (DE 0 R 
1) : 

1520 INPUT PI 

1530 IF P 1 < 0 OR P1>1 THEN GOTO 1 

550 

154-0 GOTO 1590 

1550 PRINT "URLOR NRO RCEITO " 

1560 PRUSE ISO 

1570 CL5 

1530 GOTO 1520 

1590 PRINT PI 

1600 LET P2 = 1 —PI 

1610 GOTO 1910 

1620 CLS 

1630 LET Pl=.l 

164-0 LET P2 = . 9 

1650 FOR 1=1 TO N 

1660 LET H(I) =INT (RND*10) 

1565 PRINT RT 0,0; I,N;** TESTES** 
1670 INPUT E(I) 

1630 IF E ( I ) < 0 OR Ed) >9 THEN GO 
TO 1700 

1690 GOTO 174-0 

1700 PRINT “UR LOR NRO RCEITO" 

1710 PRUSE 130 

1720 CLS 

1730 GOTO 1670 

174-0 NEXT I 

174-5 CLS 

1750 FOR I =N + 1 TO N + 5 
1760 LET R d ) = I NT CRND*10) 

1770 NEXT I 

1780 IF R$="B" THEN GOTO 134-0 
1790 FOR J = 1 TO N 

1300 IF R(J) =E(J) THEN LET X=X + 1 
1310 NEXT U 
1320 GOTO 1330 

1330 IF R$="R" THEN GOTO 1900 
134-0 FOR L =1 TO 5 
1350 FOR K =1 TO N 

I860 IF R l K +L ) =E ( K ) THEN LET XiL 
) =X CL) -d 
1370 NEXT K 
1330 NEXT L 

1390 IF R$="B" THEN GOTO 2000 
1900 PRINT " CLRRIU IDENC IR : X; " 
RCERTOS EH **,N;" TESTES" 

1910 IF S<>1 THEN GOTO 194-0 
1920 LET KH 12 = ( RBS CRBS CX- (P1*N 
) ) - .5) ) **2/ (PI*N) + i RBS CRBS C CN- 
X) - CP2*N> ) - . 5) ) **2/ CP2*N) 

1930 GOTO 19S0 

194-0 LET KHI2=(RB5 I CX - (PI *N> ) ) * 
*2/ CP1*N> + CRBS C (N-X) - CP2*N) > ) ** 
2/ C P2*N) ) 

1950 GOSUB 2110 
I960 PRUSE 600 
1970 CLS 

1930 IF R$ = "D" THEN GOTO 24-00 
1990 IF R$="R" THEN GOTO 234-0 
2000 FOR H = 1 TO S 

2010 PRINT "PREMONICRO COM ";M;" 

TESTES " , "DE DEFRSRGEH :",XCM); 
" RCERTOS EH ",N;" TESTES" 



2020 IF S<>1 THEN GOTO 20S0 
2030 LET KH 12 = C RBS CRBS CX CH) - C . 
1*N) ) - . 5) ) H2 / ( . 1*N) -► CRBS CRBS C 
CN-X CH) ) - C . 9 *N ) ) -.5) ) **2/ C . 9*N) 
204-0 GOTO 2060 

2050 LET KH 12 = C RBS CX CH) - C . 1*N) ) 

) **2/ C . 1*N) + CRBS C CN-X CM) ) - C - 9*N 
) ) ) **2S C . 9*N) 

2060 GOSUB 2110 
2070 PRUSE 600 
2080 CLS 
2090 NEXT M 
2100 GOTO 234-0 

2110 IF KHI2< 10.33 THEN GOTO 216 
0 

2120 PRINT " KH I OURDRRDO =";KHI2 
, "TESTE EXTREHRHENTE POSITIW " , 
"P <0,001 " , , "EXISTENCIR DE FRCUL 

DRDES PSI" 

2130 PRINT 
214-0 LET U 1 = 1 
21S0 RETURN 

2160 IF KHI2<6.64 THEN GOTO 2210 
2170 PRINT "KHI OURDRRDO =",KHI2 
, "TESTE POSITIUO", , "P<0,G1" , , "EX 
ISTENCIR PROUflUEL DE " , "FRCULDRD 
ES PSI" 

2130 PRINT 
2190 LET Ul=l 
2200 RETURN 

2210 IF KH 12 < 3 ■ 84- THEN GOTO 2260 
2220 PRINT "KHI OURDRRDO =";KHI2 
, "TESTE POSITIUO" , , "P cS , "EX 

ISTENCIR POS5IUEL DE" , "FRCULDRDE 
S PSI" 

2230 PRINT 
2240 LET Ul=l 
2250 RETURN 

2260 IF KH 12 <2.71 THEN GOTO 2310 
2270 PRINT "KHI OURDRRDO =" , KHI2 
, "TESTE FRflCRMEMTE POSITIUO" , "P < 
10 " , , "TflLUEZ EXISTRM" , , "FRCUL 

DRDES PSI" 

2280 PRINT 
2290 LET Ul=l 
2300 RETURN 

2310 PRINT "KH I OURDRRDO =";KHI2 
, "TESTE NEGRTIUO" , , "P>90 m S m " / / "N 
RO FORRM DETECT RDRS" , "FRC 



PSI" 

2320 PRINT 



2330 RETURN 

2340 IF Ul=i THEN PRINT "DRDO O 

BOM RESULTRDO , E* RCON5E- LHRUEiL. 

REFRZER O TESTE- 

2350 IF U 1 < > 1 THEN STOP 

2360 PRINT "O COMPUTRDOR REPETIR 

R* O TESTE" , "DENTRO DE INSTRNTES " 

2370 PRUSE 600 

2380 CLS 

2390 RUN 

2400 STOP 

2410 SRUE "TESTE PRRRPS JCOLOGICfi 



2420 RUN 
2430 STOP 



15. A pergunta "Qual a probabilidade 
tedrica de sucesso?" Deve, neste ca so, ser 
respondida como sendo 1/6 = 0.1667, 
pois h4 1 chance em 6 de sair um certo nu 
mero ao ser jogado o dado. 

O seu TK responded entao que o va- 
lor de KHI QU ADR ADO d 1.141, que o 
teste foi negativo (com uma probabilidade 
de certeza de 90°/o ) e que portanto, nao fo- 
ram detect adas faculdades PSI (parapsi- 
coldgicas). 

Digamos, agora, que vocd joga uma 
moeda para cima e tenta advinhar se del 
cara ou coroa . Numa sdrie de 50 testes vo- 
cdacerta42 vezes. NoseuTK, entao, voce 
entrara (na opgao D) com estes dados, 



lembrando que a probabilidade tedrica 
de sucesso e 0.5 (pois ha 1 chance em 2 de 
voce acertar). 

O seu TK fornecera um valor de KHI 
QUADRADO bem elevado (23.12) e es- 
crevera uma mensagem dando o teste co- 
mo positivo. 

Antes que voed inicie suas prdprias 
experidneias, queremos adiantar que ne- 
nhum de nos, aqui da redagao, apresenta 
qualquer tipo de faculdade PSI. Isto nos 
frustrou consideravelmente (afinal, quern 
nao gostaria de se sentir cercado por uma 
misteriosa aura de magia?), mas ao mes- 
mo tempo despertou nossa curiosidade. 

Sera que entre os milhares de usua- 



rios do TK nao havera algudm realmente 
dotadodessas laculdades? Se houver, por 
favor, escreva nos dando os resultados, 
pois gostariamos de testa - lo sob condigdes 
controladas. 

Para os outros nao dotados mas cu* 
riosos, aconselhamos a leitura de um dos 
raros cientistas (de verdade! ) que se arris- 
cou a contestar a enxurrada de lmbecili- 
dades que assola o mundo: CARL SA- 
GAN. 

E extremamente instrutivo ler-se "O 
Romance da Ciencia", editado no Brasil 
pela Francisco Alves, em contraposigao a 
milhares de obras escritas em sentido con- 
trario. 
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Programs do Ales 



Renumerando 



9958 REM RENUMERRNDO 

9959 LET T$ = "" 

9960 LETT Xl = 16509 

9951 LET X2=Xl+2 

9952 LET L=256*PEEK Xl+PEEK fXlf 

9953 IF L > =9959 THEN GOTO 9975 

99b4 LET C =PEEK X2+256*PEEK (X2 + 

1 ) 

9955 IF PEEK (X2+2) =234- THEN GOT 
O 9959 

9955 FOR I=X2+2 TO X2+C 

9957 IF PEEK 1=235 OR PEEK 1=237 
THEN GOSUB 9971 

9958 NEXT I 

9959 LET Xl=X2+C+2 

9970 GOTO 9951 

9971 IF PEEK (1+5) =125 THEN GOTO 
9974 

9972 PRINT “COMflNDO FORR DR 5 NOR 

MRS NR LINHR . L 

9973 STOP 

9974 LET T$=T$+STR$ I+CHR* PEEK 
(1+1) +CHR$ PEEK CI+2) +CHR$ PEEK 
(1+3) +CHR$ PEEK (1+4) 

9975 RETURN 
9975 LET 5=1000 

9977 LET Xl=15509 

9978 LET X2=Xl+2 

9979 LET L=255*PEEK Xl+PEEK (XI + 
1) 

9980 IF L > =9959 THEN STOP 

9981 LET C=PEEK X2+255+PEEK (X2+ 

1) 

9982 FOR 1=1 TO LEN T% STEP 9 

9983 IF URL T$(I+5 TO 1+8) =L THE 
N GOSUB 9990 

9984 NEXT I 

9985 POKE XI, INT (B/255) 

9986 POKE (Xl+1) ,B-256*INT (5/25 

6) 

9987 LET B=B+10 

9988 LET Xl=X2+C+2 

9989 GOTO 9978 

9990 FOR J=1 TO 4 

9991 POKE (URL T$(I TO I+4)+U),C 
ODE ( 5TR$ B) (U) 

9992 NEXT U 

9993 LET BYTE 1 = 128 + INT (LN B/LN 
2 + 1 ) 

9994 LET BYTE2 =B *55535 /( 2 **( BYTE 
1-128) ) 

9995 LET M =URL T*(I TO 1+4) 

9995 POKE M +6 , BYTE 1 

9997 POKE M + 7 , I NT (BYTE2/255) -12 
8 

9998 POKE M+S.. BYTE 2 -256 * INT (BYT 
E2/256) 

9999 RETURN 



Este programs £ o primeiro de uma 
s£rie de programas especiais que preten- 
demos oferecer aos nossos assinantes. 

Ele 6 do tipo que resol vemos denomi- 
nar "programa-ferramenta". Um progra- 
ma desta natureza tem como finalidade 
auxiliar o programador e simplificar sua 
tarefa. 

Ao se digitar um programa novo pela 
primeira vez de vemos tomar o cuidado de 
deixar posigGes vazias entre o enderego 
de uma linha e o da linha seguinte. (Al- 
guns programadores tem por habito nu- 
merar, por exemplo, de 10 em 10.) Isto 6 
uma atitude prudente ditada pela Lei de 
Murphy: "Se algo tem chance de dar erra- 
do, certamente dar£ errado". Ao se rodar 
um programs recem-digitado, fatalmente 
desoobre-se uma porgao de "grilos”, cuja 
elimmagSo exige a insergao de novas li- 
nhas. Ap6s vArias tentativas, o programa 
esta pronto mas com uma numeragao que 
fere o senso estatico da maioria das pes- 
soas. Al£m disso, um bom programador 
envergonha-se desta estranha numera- 
gao, pois sabe que outro pode deduzir os 
erros iniciais que ele oometeu pela nume- 
ragao dos "remendos". 

O programa RENUMERANDO visa 
eliminar estes inconvenientes. Inicial- 
mente ele deve ser digitado e salvo em fi- 
ta. 

Antes de se digitar um novo progra- 
ma ele deve ser carregado no computa- 
dor. Na linha 9958 e conveniente colocar 
um monte de espagos vazios depois do ti- 
tulo RENUMERANDO. Isto produz um 
hiato entre a rotina inserida e o progra- 
ms que voc& esta digitando e ajuda a se- 
paragSo visual na listagem da tela. 

Voc§ deve ter o cuidado de digitar 
todos os enderegos indicados por um 
GOTO ou GOSUB com quatro digitos. 
Por exemplo, se no rascunho de seu pro- 
grama voce tem uma linha assim 
312 GOTO 418 
ela deve ser digitada assim 
312 GOTO 0418 

Uma vez digitado o rascunho do progra- 
ma, basta comandar 

GOTO 9959 

que, ap6s um certo tempo (30 segundos 
para um programa de 1 K), seu programa 
reaparecera numerado a partir da linha 
1000 de 10 em 10. 

Se algum GOTO ou GOSUB estiver 
fora das normas (4 digitos) , a rotina parara 
e sua linha 9972 indicara, na mensagem, 
em que linha do rascunho isto ocorreu. 

A linha em questao devera entao ser 
corrigida e novamente a renumeragao de- 
vera ser reiniciada por um 
GOTO 9959 

Apos um certo tempo de pratica, o 
programador podera dispensar a mensa- 
gem e substituir a linha 9972 por 
9972 LIST L 

Neste caso, ao detectar erro, a rotina 



ja colocara o cursor de listagem (£>]) na li- 
hha a ser corrigida, com economia de 
tempo. 

Se o programa ti ver algum GOTO ou 
GOSUB obrigatoriamente fora de norma, 
por exemplo 

312 GOTO (x + 3) 

havera uma indesejada interrupgfio da ro- 
tina. Para driblar sua vigiiancia podemos 
usar a linha 9965 que pula os REMs. Neste 
caso inserimos um REM no rascunho: 

312 REM GOTO (x + 3) 
que devera ser oportunamente apagado 
apos a renumeragao. 

Se quisermos alterar a numeragao da 
linha inicial do nosso programa 
(mantendo-a porem com 4 digitos) pode- 
mos mudar a linha 

9976 LET B = 1000 

usando valores de B maiores que 1000. 



Podemos tambem alterar a linha 
9987 LET B = B+ 10 
alterando com isto o incremento. Queren- 
do esnobar em cima de um programa se 
guramente pronto e retocado, podemos 
numerar de 1 em 1 : 

9987 LET B = B+l 
Al£m disso, £ conveniente certificar- 
se de que o computador esteja em FAST 
antes de se iniciar a rotina. 

A unica parte realmente enjoada dis- 
so tudo £ finalmente ter de apagar as li- 
nhas da rotina uma vez terminada a tarefa. 
Se o programa, por£m, nao estiver abso- 
lutamente perfeito (lembre-se a Lei de 
Murphy!), e nao houver limitagao dejne- 
mdria, £ conveniente deixar esta rotina 
pendurada no fim do seu programa ao 
salv^-loem fita. Afinaldecontas, nuncase 
sabe...! . 
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□icas 

O "Auto- Start" 

Se voc£ usou fitas de programas jci 
prontos deve ter notado que ao serem car 
regadas, algumas delas ao inv£s de apre- 
sentarem a tela vazia com o codigo "0/0", 
ja iniciam o programa imprimindo algum 
titulo ou alguma instrugao inicial. 

O tru que para se tazer isto e extrema - 
mente simples: basta por o comando "SA- 
VE" no proprio programa. Vamos exem 
plificar: digamos que voce tenha o se 
guinte programa: 

5 3LOU 

10 PRINT O PROGRflMR COMECOU" 
20 PRINT "E5TR EH H SEGUNDR OR 
DEM" 

30 PRINT "OURL SEU NOME ?" 

♦0 INPUT N* 

50 CL 5 
60 PRINT NS 
65 STOP 

Para guardd-lo em fita, normalmen- 
te, voce digitaria: 

SAVE “DICA" 

e 5 segundos apos o NEW LINE, o progra 
ma comega a ser enviado para a fita K-7. 

Ao recarregar o programa voce tera 
tela vazia e cddigo 0/0. (Experi mente fa- 
zer isto: nao precisa usar fita de verdade 
pois ao terminar a execugao do “SAVE" a 
tela ja mostra como seria o fim do 
"LOAD".) 

Acrescente agora as linhas: 



70i5RUE “ D ICR” 
80 RUN 



Para guardar este novo programa de 
fita, digite: 



GOTO *7© 



e 5 segundos ap6s o NEW LINE, o progra- 
ma comega a ser enviado para a fita. 

Quando este programa e carregado, 
todas as instrugdes ap6s o: 



“70 SPUE ••DIOR- 



sao executadas. No caso, a instrugao £ 



80 RUN 



que faz o programa correr. Note que na 
tela ja aparecem os "PRINTs" das linhas 
10, 20 e 30 e o computador ja esta aguar- 
dando o INPUT da linha 40. 



Digite seu nome e NEW LINE. 

O programa para na linha 65. Aperte 
NEW LINE para liste-lo. 



5 SLOW 

10 PRINT "O PROGRRMfi COMECOU" 
20 PRINT "EST R EH R SEGUNDR OR 

:M" 

30 PRINT "OUflL SEU NOME *? 

4-0 INPUT N* 

50 CLS 
60 PRINT N % 

65 STOP 
70 SRUE "DICS" 

80 RUN 



Note, na linha 70, que o ultimo carac- 
tere do codigo de SAVE ficou em video 
reverso. Nao se preocupe, pois isto £ nor- 
mal. 

Mude agora a linha 80 para: 



80 GOTO 20 



e SAVE novamente o programa digitando 



GOTO 70 



o programa agora se inicia na linha 20. Di 
gite novamente seu nome e mude a linha 
80 para: 



80 GOTO 60 



Novamente digite: 



GOTO 70 



para salvar o programa. 

O programa agora inicia na linha 60: 
seu nome aparece na tela, pois e um dado 
que foi salvo junto com a fita. 

Esta tecnica £ exatamente util quan 
do o programa armazenado este "RE- 
CHEADO" de dados que podem ser can- 
celados por um inoportuno "RUN". 

Podemos entao fazer programas "A 
PROVA DE DINORAS", usando a instru- 
gao "SAVE" no prdprio programa e 
fazendo-a seguir de uma instrugao que fa- 
ga o programa comegar numa regiao on- 
de os dados nao possam mais ser destrui- 
dos. 




agora VOCE pode: 



— Carregar o seu micro SEM ajustes 
criticos de volume do gravador. 

— Usar aquele programa que n3o "entrou" 
em outras ocasides. 

— Carregar programas gravados por 
outros gravadores. 

— Gravar "direto" de outro gravador, 
e a gravaCcio ficar perfeita. 



USE TIG-LOADER! 



instale TIG-LOADER 
entre o micro e o gravador, e prontol 
FACIL DE USAR, EFICIENTE... E BARATO. 

Peca informa<?6es para a 
CAIXA POSTAL 18948 
S&o Paulo — Capital. 

Atendemos todo o Brasil. 
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NOVIDADES 



A Micromega PublicagOes 0 Material 
Didatico provou sua versatilidade e lide- 
ranga quando do langamento da Revista 
dos Usuarios do TK, que esta sendo ele- 
mento de estimulo e apoio aos seus afic- 
cionados. E a Micromega promete incre- 
mentar o setor com seis langamentos na 
area editorial com os livros: BASIC TK 
elementar; BASIC TK avangado; Lingua 
gem de m^quina para o TK (principals 



instrugOes e primeiras aplicagOes); Lin- 
guagem de m^quina para o TK (aplica- 
goes avangadas); Colegao de programas 
vol. 1 ; e Curso de jogos em Basic TK para 
adolescentes. 

Neste empreendimento a Micromega 
tera o apoio da Editora Moderna que atua 
r4 como co-editora das publicagdes, que 
deverao estar no mercado no mes de ju- 
nho. 



Outra novidade de interesse 6 que a 
conhecida agencia Avant Garde, distri- 
buidora de livros, revistas e jomais, situa 
da a Av. BngadeiroFaria Lima, 1237, loja 
7, Sao Paulo, tel.: 210-9020, agora estara 
vendendo tamb^m livros e revistas de 
computagao. 




micromega 




MODERNA 



CURSO DE BASIC TK 




Neste numero miciamos um curso de 
Basic TK voltado miciaimente para os 
principiantes. A estes aconse/hamos 
acompanhar passo a passo com o compu 
tador Iigado(ndo hd necessidade de ex- 
pansdo). E aconselhavel tamb&m colecio- 
nar a Revista para poder aproveitar uma 
s£rie de coisas que agora voce ainda nao 
pode acompanhar, mas que futuramente 
serao muito uteis. 

Pierluigi Piazzi Flavio Rossini 

O que 6 um computador? 

Um computador a uma serie de circuitos 
eletronicos capazes de interpretar e exe- 
cutar ordens recebidas dos seres huma 
nos para realizar operagOes matematicas 
e manusear informagSes, podendo inclu- 
sive controlar outros aparelhos. 

O computador se caracteriza por: 

a) ser RETARDADO 

b) ter MUITA MEMORIA, sendo incapaz 
de ESQUECER alguma coisa 

c) ser MUITO RAPIDO 

d) ser PRECISO 

e) nao ERRAR nunca 

f) ser EXTREMAMENTE OBEDIENTE, 
executando ordens sem qualquer re- 
clamagao! 

Os computadores, analogamente aos se- 
res humanos, t&m um cerebro (responsa 
vel pelo controle e calculo) e dispositivo 
para se comunicar com o mundo extemo, 
ou seja , receber informagOes e enviar in- 
formagades. No caso do TK, este seria o 



esquema basico(fig. 1). 

O microprocessador e o cerebro, usando 
a memoria para armazenar dados e infor- 
magOes, o teclado para receber mforma- 
gdes do ser humano e a TV ou 1 m pressor a 
para enviar informagSes. Como o compu- 
tador so £ capaz de reter as informagOes 
enquanto estiver "acordado" (ligado), ao 
"adormecer" (ser desligado) ele esquece 
TUDO o que ha via sido colocado na me- 
morial Portanto, utiliza-se um gravador 
K-7 para gravar estas informagOes que 
eventualmente serao utilizadas de novo 
no futuro. 

Note que, de todas as caracteristicas do 
computador, a mais mdesejavel e a pri- 
meira, ou seja, o fato dele ser RETARDA- 



DO! E e justamente isto que devemos ter 
sempre em mente: o computador e rapi- 
do, obediente e preciso mas N AO tern in- 
teligencia; apena s se limita a executar or- 
dens EXATAMENTE <omo foram formu 
ladas. 

Para poder acompanhar este curso £ con 
veniente comegar ligando o TK . A fonte 
de alimentagao deve ser ligada a tomada, 
o interruptor na posigao OFF (desligado) 
e o plug macho no terminal C. C. do com- 
putador. 

Na saida RF (video) ligar o cabo de ante- 
na. Ligar a outra extremidade do cabo da 
antena nos 2 terminais da antena do televi- 
sor (pode ser branco e preto) e sintoniza- 
lo no canal 2 (com volume no minimo). 
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Colocando a chave (ON-OFF) da (onte de 
alimentagao na posigao ON, no canto in- 
ferior da tela deve aparecer um quadradi- 
nho com um K em seu interior: 

Figura 2 



— 


\ 




LIST 






letra 


lu 1 


□ 




((El) - “ 


IK 1 


) 




LEN 



cla SHIFT simultaneamente com a tecla 
K ! (O mesmo 6 v^lido para todos os carac- 
teres em vermelho no TK 82 ou em amare- 
lo no TK 85). 

„ palavra-chave (0) 



SHIFT 

(CP 



Ele 6 chamado de cursor e sera muito util 
para nos ajudar a trabalhar com o compu- 
tador. Este 1E3 £ abreviagao de KEY 
WORD, ou seja, palavra-chave. As pa la 
vras- chaves sao as que aparecem ACIMA 
de cada tecla; assim, se o cursor estiver 
emKl, ao apertar qualquer tecla que tenha 
uma palavra-chave acima da mesma, esta 
palavra aparecera no canto inferior da te- 



la. 

Figura 3 




palavara-chave 
(key word) 



Se voc£ esqueceu disto, voc6 ir£ obter: 



PRINT 7K9§ 



que nao faz nenhum sentido! Teremos que 
apagar a letra K! O computador 6 capaz 
de apagar somente o caractere que estiver 
imediatamente k esquerda do CURSOR; 
portanto, devemos aprender a DESLO- 
CAR o cursor; observe as teclas 5 e 8; ne- 
las voc& vera, em vermelho (ou amarelo), 
o seguinte: 




portanto, ao apertar SHIFT e as teclas 5 ou 
8, o cursor caminhara para a esquerda ou 
para a direita! Suponha que voc& tivesse 
cometido o erro acima mencionado estan- 
do com o cursor na posigao indicada. 
Pressione SHIFT e 5 ao mesmo tempo e 
voc§ obtera: 



PRINT 7Kl9 



Pronto, o caractere que desejamos apagar 
esta imediatamente a esquerda do cursor; 
para apaga lo basta pressionar SHIFT e a 
tecla 0 (RUBOUT) simultaneamente; voc£ 
obtam: 



PRINT 



Agora coloque o sinal de " + " e a seguir 
pressione NEW LINE; o computador exe- 
cuta sua ordem e escrevera 1 6 no topo da 
tela! Se voc£ mandar o computador exe- 
cutar uma ordem que nao tern sentido, 
duas coisas podem ocorrer: ou ele nao 



A Instrugao PRINT 

V amos comegar a dar ordens ao compiita 
dor: aperte a tecla da letra P; voce ira ob- 
ter PRINT na tela, seguido do cursor que 
agora mudou para(LJ(que e a abreviagao 
de LETTER, ou seja, letra), indicandoque 
o computador nao mais espera uma pala- 
vra-chave, mas sim uma letra ou numero; 
experimente digitar o numero 57. O que 
voce esta ordenando? Ora, PRINT signifi- 
ca ESCREVA, portanto, voce esta dizen- 
do ao computador: "Escreva o n? 57"; ele 
executara a sua ordem! Basta informa -lo 
de que a ordem esta completa e isto pode 
ser feito pressionando a tecla NEW LINE. 
Verif ique o que aparece no canto superior 
esquerdo! No canto inferior aparece a se- 
guinte 0/0; nao se importe com isto por en 
quanto; apenas saiba que o cursorKJesta 
"escondido" detras destes numeros 
Figura 4 



0 / 



De fato, pressione P e voc£ obtera nova- 
mente PRINT d;faga entao com que ele 
ESCREVA o resultado de uma conta de 
somar, por exemplo: 




PRINT 7+QH 



Para dominar 
seu computador 
pess oal. va direto 
a< 




Aulas de BASIC em turi 
reduzidas (12 alunos) com 
assistSncia individual e um 
micro (TK82-C) 
permanent^ 
disponivel para cada 
2§ilunos. 

NIVEL I - Linguagem BASIC 

efundamentosde 

programagao. 

DURAQAO;20 horas 

PRE-REQUISITOS: 

nenhum: o curso e para 

principiantes. 



__M£ASIC 
Avangado: Programagao 
dejogos, aplicagOes 
administratlvase 
clentfficas 

DURAQAO: 20 horas 
PR6-REQUISITOS: Nivel I 
ou equivalente. 

NIVEL III - Linguagem de 
maquina especial para o 
TK82-C 

DURAQAO: 20 horas 
PRE-REQUISITOS. Nivel lie 
exame pr§vio 




Local e InformagOes: 

NUCLEO DE ORIENTAQAO DE ESTUDOS 

Av. Brig Faria Lima. 1.451 -Conj. 31 01451 S Paulo SP 
Tel. : 813-4555 



Note que o caractere " 4- " esta em verme- 
lho na tecla da letra K; para fazer com que 
o " 4 " aparega na tela, basta apertar a te- 
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executa nada, aparecendo apenas os nu- 
meros por enquanto sem sentido no canto 
inferior da tela ou ele detecta o erro, nao 
executando a ordem e apontando com o 
cursorEkde sintaxe) onde esta o erro; isto 
depende do tapo de erro que voc£ come- 
ter! • 

Experimente colocar: 



PRINT + -BB 



e a seguir NEW LINE! (O caractere " — " 
esta na tecla J) 

Voc6 obterd: 



PRINT +B-SB 



Desloque entao o cursor[Qpara a direita 
do sinal de " + " e apague-o; substitua-o 
pelo numero 3: 



PRINT 3J5-8 



e pressione NEW LINE! Agora o computa- 
dor £ capaz de entender a sua ordem e 
executant a operagao, fazendo aparecer 
— 5 na tela! 

Vamos agora ordenar que o computador 
calcule o valor de uma expressao mate- 
matica: 



PRINT 

2+3/5*2B 



Neste ponto, v^rias observances sao ne- 
cessarias: nao confunda a letra O com o 
numero zero, que 6 assim representado: 
0. O computador interpreta o sfmbolo 
como um sinal de MULTIPLICAQAO, o 
simbolo "/" como um sinal de divisao e o 
simbolo "* *" (tecla H) como um sinal de 
EXPONENCIAQAO. A exponenciagao 6 
considerada a conta de maior prioridade, 
seguida pela multiplicagao e divisao com 
igual prioridade e, a seguir, pela soma e 
subtragao, tambCm com igual prioridade; 
assim, esta expressao sera executada des- 
ta maneira: 

Figura 6 



10 — 2*5*' 


2 + 3/5*2 = 


10 — 2*25 


+ 

£ 

* 

to 

II 


10 — 50 + 


3/5*2 = 


10-50 + 


H 

CN 

♦ 

CO 

o 


10 — 50 + 


1.2 = 


—40 + 1.2 


1 _ 


-38.8 





(Em caso de empate, a 1 ? operagao a ser 
executada sera a que estiver mais a es- 
querda) 

e o — 38.8 aparecera na tela; note que o 
computador usa "." ( ponto)' ao in v6s da "," 
(virgula), segundo a notagao inglesa. 

Verifique que, o sinal de exponenciagao 

* * deve ser o da tecla onde esta a letra H ; 
nao adianta pressionar duas vezes o sinal 

* da tecla B! Apesar do efeito na tela ser o 
mesmo, o computador nao entender^ sua 
ordem e dara um erro de sintaxe! 

Numa expressao matematica voce pode 
tambem utilizar os parenteses (letras I e 
O), por exemplo: 



PRINT 4-* (7-2) B 



Neste caso, -a subtragao sera executada 
primeiro e vt>ce obtera o numero 20. 
Surge agora a seguinte pergunta: eseeu 
desejar escrever uma palavra ou frase? E 
simples! Basta colocar a palavra ou frase 
entre aspas (", tecla P), por exemplo: 



PRINT ,, BEflTLE5 ,, B 



e, a seguir, NEW LINE! 

Note que as aspas significam o seguinte: 
"computador, copie exatamente o que es- 
tiver escrito entre aspas"! De fato, experi- 
mente colocar: 



PRINT "3+4."B 



e NEW LINE! Sua ordem sera executada; 
ele copiara 3 + 4 no topo da tela mas SEM 
executar a operagao! Portanto, voce po- 
dera colocar todos os caracteres que qui- 
ser (letras, numeros, simbolos) entre as- 
pas . Se voce desejar que as proprias aspas 
sejam copiadas no topo da tela, voce de- 
vera usar as aspas duplas (tecla Q), da se- 



guinte maneira: 

PR INT BEATLES" “ 



pressione NEW LINE e voce ira obter 
"BEATLES", ao inves de BEATLES, no 
canto superior da TV ! 

A esta altura, voce deve estar cansado(a) 
de escrever sempre no topo da tela ; vamos 
variar um pouco! Para isto e necessario 
saber que a tela tern disponiveis 22 linhas 
e 32 colunas numeradas de0q21e0a31 
respectivamente, sendo que a posigao do 
canto superior esquerdo da tela e a posi- 
gao 0,0. Note que estas 22 linhas NAO IN- 
CLUEM a linha onde voc£ escreve a sua 
ordem; voce tern 2 linhas para isto, sem- 
pre disponiveis. Vamos entao escrever 
BEATLES a partir da linha 10 e coluna 5: 
(figura7) 

Basta fazer o seguinte: 

PRINT «T 10^5; 
•'BEATLES"! 



Preste atengao: a palavra AT nao e uma 
palavra-chave, nem letra, mas sim uma 
fungao e, para que possamos escreve- la, 
devemos mudar o cursor defT^a ra[E} para 
fazer isto, pressione SHIFT e NEW LINE 
(FUNCTION) simultaneamente. Agora, 
como cursor emQD.aperte a tecla C. Todas 
as palavras que estiverem abaixo de cada 
tecla sao tratadas como FUNQOES e, pa- 
ra obte-las na tela, 6 necessario o cursor 
estar em F (fig. 8). 




Nao ADIANTA tentar escrever a fungao; 
por exemplo, no caso, apertando a letra 
A e a letra Tea seguir um espago (tecla 
SPACE)! Experimente fazer isto e ver o 
que ocorre! 



Figura 7 
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Faga agora o seguinte: 

PRINT RT 12,28; 

'•'BEOTLES ,, § 

Tente explicar o que acontece! 

A mstrugao LET 

Experimente, agora, tentar escrever uma 
palavra sem usar as aspas na ordem de 
PRINT. 



PRINT LOUEB 



Aoapertar NEW LINE, nada aparecerb no 
canto esquerdo superior da tela, mas tam- 
bem nao aparecerb o cursor S indicando 
erro! Veja porque: quando uma letra ou 
grupo de letras aparece sem aspas, o com- 
putador interpreta esta letra ou grupo co- 
mo uma VARlAVEL MATEMATICA, cu- 
jo valor deveria estar em sua membria; ele 
irb procurb -la sem no entanto encontrb-la 
e por isto nao poderb escrever seu valor! 



Experimente, entao, fazer: 



LET LOUE=10B 

(LET, letra L) 

e ; a seguir, NEW LINE! Nada aparecerb 
novamente no topo da tela! De fato, voce 
nao ordenou ao computador que ele es- 
crevesse mas sim que, em SUA MEM6- 
RIA, atribufsse a varibvel LOVE o valor 
10 ! 

Experimente fazer agora: 



PRINT LOUEB 



O que voce obtem? Ora, ele ira procurar 
LOVE em sua membria e ira achar o nu- 
mero 10 que sera entao escrito! Faga ago- 
ra: 



LET LOVE =LOUE 4- lB 

(NEW LINE) 



LANQAMENTO — 

PASSAGEM PAHA 0 INPINITO 

SensAcional jogo onde vocA tsnUrA encontrar e satr com um fabuloso tesouro em um 
complexo labirmlo. guardado por ternveis polvos monstros. e com mats de 400 pas 
sos Para ajudA lo. vocA contara com algumas espadas. que garantirao sua sobrevi 
vAncla na luia com os monstros. e com os prlsloneiros encarcerados nas vAnas pas 
sagens que lhe indicarAo o caminho a seguir Totalmente em lmguagem de mAquina 
com grAficos fantasticamente ammados e trAs niveis de dificuldade para desaflA-lo 
Preqo Cr$ 7 000.00 

MIDWAY 

Uma grande guerra mundial esta sendo travada nas agues do AtiAnuco VocA agora 6 
o comandante do submartno atomico MIDWAY, sua missAo destrutr u>das as bases 
inimtgas em agues brasiletras Cuidadocom os navios. avsoes e mtnas espalhados pe 
los invasores Para auxillAlo podera contar com uma frota de navios de reabasteci 
mento. varies bases aliadas e um computador de bordo Um grande desafio com grA 
flcos e vAnas rotlnas em lmguagem de mAquina Prego Cr$ 6 000.00 

JORNADA NAS ESTRELAS 

A sua nave tnterplanetAria ENTP.EPRISE neceasita livrar a galAxia dos invasores 
KUngon. e vocA. como comandante da nave. terA a Ardua missAo de destrui los Um 
jogo famoso no mundo todo em uma de sues melhores versdes pela Softkristian. com 
efeilos grAf icos sensacionais Preqo Cr$ 5.0bb.0b 

a.* dimensAo 

Agora vooAJApodeterumfllperamaem seu microcomputador em2‘ DIMENSAO dots 
jogos agitadlssimo8 para tester Bua coordenagAo motora Em SPACE INVADER vocA 
tern os originals invasores atacando sua nave e em ASTEROID vocA deve pousarem um 
planeta e. para tanto deverA ultrapassar os obstAoulos que vAem A sua frente tentando 
destrui lo Orandes jogos em lmguagem de mAquina prago Cr$ 5 000.00 

VISITA AO CASSINO ■ 

Quatro grandes Jogos em um sb caga-mqueis. roleta. 21. e perseguigAo fatal fazem 
parte deste sensacional conjunto Tod os os jogos com grAf icos e rotinas em lmguagem 
de mAquina. para vocA que gosta de a poster e toroer Prego Cr$ 6 000,00 

10 JOGOS EXCITANTES PARA 1 K 

Dez pequenos Jogos para vocA Incrementar e apronder bastante os efeltos de progra 
magAo de Jogos e trabalhos com video Se vocA nAo dtspbe da expansAo de 16 K JA pode- 
rA ter entretenlmento com esta sensacional f lta Se vocA JA dispbe de 1 6 K compre para 
mcrementA- los e terA excelentes jogos Prego Cr$ 4 000.00 



Rua da Lapa, 120 grupo 505 
Tels 252 9057 232 5948 
CEP 20021 - Rio de Janeiro RJ 
Todaa as fltas vAo em embalagem lacrada. com gravagAo profisslonal. para sue faran- 
Ua. A Kristian trocarA qualquer flu que seja enviada. com defeltos de fabrlcagAo 



Compre conosco ce quaiquer pane do Brasil sem 
despesas adicionais envianoo um cneque cruza 
doe nominal a KRISTIAN EIETR6N1CA ilea into 
precisa visar ) e garanta o recepimento de nosso 
mlormalivo NOVIDADES KRiSTlAN rotalmenie 
gratuito 




Note que o sinal de igual usado no compu- 
tador nao tem o significado usual; de fato, 
seria absurdo matematicamente dizer que 
um numero b igual a ele mesmo mais um! 
Portanto, o sinal de igual significa: atri- 
bua a varibvel da esquerda o numero ou 
resultado da operagbo que estiver b direi- 
ta! 

Digite agora: 



PRINT "LOUE"; LOVEl 

(NEW LINE) 

Note bem o efeito das aspas! O ponto e vir- 
gula b necessbrio para o computador en 
tender que deve escrever coisas distintas! 
Se voce nao gostou do fato dos escritos sai- 
rem ' grudados", basta coiocar um espago 
em branco apbs a palavra LOVE entre as- 
pas; para obte-lo, pressione a tecla SPA- 
CE: 



PRINT "LOVE •*; LOUEH 



Lembre-se, na memoria do computador 
agora estb a varibvel LOVE associada ao 
numero 1 1 . Obviamente se voce desligb- 
lo ele ira "esquecer" isto e ao ser ligado 
novamente nada aparecerb na tela se vo- 
ce ordenar: 



PRINT LOVEi 



Entretanto, vocb pode ' apagar" as varib- 
veis da membria do computador sem 
desliga-lo, usando a ordem (key word): 

CLEAR (letra X) 

Experi mente entao fazer C LEAR , 

NEW LINE e, a seguir, faga: 



PRINT LOUEB 



Como esperado, nada serb escrito, pois o 
computador -"limpou" a sua membria! 
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Como fazer sua 
assinatura 



A nossa Revista nao sera dis- 
tribui'da nas bancas. Para obter 
seu exemplar mensal, contendo 
muitos programas para o seu TK, 
muitas dicas e pr§mios interessan- 
tfssimos, voc£ devera fazer uma 
assinatura: o prego anual da assi- 
natura a de Cr$ 1 1 .800. Por^m, ate 
30 de junho, manteremos o prego 
de Cr$ 9.900. 

Alam da Revista, voce ganha- 
ra uma fita com dois jogos inaditos, 
exclusivos par a nossos assinantes: 
um deles necessita apenas 2 K de 
RAM para ser rodado; o outro ja 
exige uma expansao de 16 K. Esta 
fita, se comercializada, teria um 
prego aproximado de Cr$ 6.900. 



Voce devera preencher o cu- 
pom anexo e coloca-lo num enve- 
lope, junto a um chegue nominal 
ou vale postal a favor de Microme- 
ga PublicagOes e Material Didatico 
Ltda. , no valor de Cr$ 9.900 (ofer- 
ta valida ate 30 de junho). O enve- 
lope devera ser selado e enderega- 
do a Micromega P. M. D. Ltda. — 
Caixa Postal n? 60081 — CEP 
05096 — Sao Paulo — SP. 

Faga as contas e nao perca es- 
ta oportunidade. Fazendo sua assi- 
natura durante esta promogao, vo- 
c& estar A pagando pouqui'ssimo 
por exemplar (lembre-se: so a fita 
que voc& ganha de brinde vale 
Cr$ 6.900.) eestara iniciando uma 
valiosa colegao a partir do n? 1 . 



Olha so o que esta 
reservado para o n? 2 




Programas do Leitor: 

Muitos programas interessantissi- 
mos bolados ou adaptados por 
nossos lei tores. 

Programas do M6s: 

Como fazer grdf icos de alta resolu- 
gao (256 x 256 pontos) no seu TK. 
Como memorizar a tela par a uso 
posterior. 

Dicas 

O uso de FLAG para voce nao se 
perder no meio de um programa 
complicado. 

Novidades 

As fungOes especiais do TK 85. 

Cursos 

Continuagao do Curso Basic TK e 
comego do Assembly Z80 do TK. 

Pequenos Anuncios 

Para esta segao voc^ podera enviar 
um pequeno anuncio para publi- 
cagao gratuita. 
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Rua Visconde de PirajS, 540 Loja 106 
CEP 22410 • Rio de Janeiro-RJ 

Fone: (021) 259-1516 

Telex: (021) 31107 * Ipanema-RJ 



SOFTWARE E COMPUTADORES USADOS 



Temos tambem CURSO DE BASIC 

V 



Atendimento personalizado. 

Muito mais que uma frase de propaganda 
6 um compromisso honrado. 



Ipanema Micro, uma boutique 
eletrdnica com calor humano. 



Financiamento em ate 24 pagtos. 
sem entrada e leasing. 



Expansdes de memdria p/TK82-C de 16K e 64 K 
Joystick - Impressora - linha comp/eta MICROSOFT 



IpflnEfTlfl FTllCRD 

o maior revendedor TK no Brasil 




DOR INSTANTANE0 P/FITAS K-7 



SEM PILHAS OU ENERGIA ELETRICA 



PARA 
APAGAR 
BASTA PASSAR 
A FITA IDA E 



VOLTA PELA 



ABERTURA 



rwiniao 



Apaga em apenas 4 segundos, qualquer fita cassete 
independente de sua duragao, eliminando todos os 
rufdos e chiados decorrentes de frequentes regrava<;6es. 
Poupa tempo e melhora a qualidade na reutiliza<;ao. 
Gravando a fita em cima de outra grava<;ao, a 
qualidade da reprodu<;ao sera reduzida 
consideravelmente, al6m de criar confusao na gravagao, 
principalmente se esta for por tempo mais curto que a 
anterior. 

Desgravando com o TWIN GO, nada disso acontece e 
voce ainda tern uma garantia de 5 anos contra defeitos 
ou qualquer deficiencia t6cnica do aparelho. 

TWIN GO, indispensavel a todos os adeptos na 
utilizapao de fitas cassete. 



Pedidos por carto a 

MICROMEGA PMD LTDA. 

Caixa Postal 60081 - CEP 05096 - Sao Paulo- SP 

anexando Cheque Nominal ou Vale Postal, 
incluindo mais despesas de frete no valor 
de Cr$ 500,00, autorizando o recebimento 
da compra no prazo de 15 dias. 



Cr$6.864,00 

p/assinantes do revista 
MICROHOBBY promo^o 
vdlida ate 30/06/83 

micromega 
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Programas para o seu 
TK82-C e TK85 



JOGO DE GAMAO 
16K 

Este program* apresenta o tabuletro no 
video e utilize o ellciente codigo de ma- 

3 uina. permitindo 4 (quatrol niveis de 
ificuldades de jogo. 



3,g?0,co 1 



LABIRINTO 

TRIDIMENSIONAL • 16K 

Jogo em Ires dimensbes 0 jogador po 
dera defimr a diticuldade do Labinnto 
O programa apresenta a posigio do jo 
gador em perspective Em qualquer mo 
mento e possivel pedir auxilio ao com- 
putador 



MATEMATICA I 
16K/64K 

Analise grafica de luncdes matemAli 
cas. resolucao de sistemas de equa 
C6es lineares I16K-51 equego*s '64K 95 
equaqdes). e Calculo de integrals deli 
nidos 



TKADREZ II 
16K 

Este jogo apresenta o tabuleiro e as pe 
q*sno video Permite a escolha de ate 
^ nrv*i$ de drficuldade. 0 programa lor- 
nece a "ifluajquer momento, a listagem 
dos lances ctetuados. e armazena em 
flta a pcisnjao das pecas. Ele podera re 
ceqiendar a sua jogada 






MONSTRO DAS TREVAS 
TRIDIMENSIONAL 16K 

Impressionante jogo onde voc* deve 



DEMOLIDOR 

2K 

Jogo animado. tipo "lliperama" O joga 
dor devera demollr uma parede com 
uma bola que se encontra sempre em 
movimento. 



Htn ■ 



INVASORES DO 
ESPAQO - 16K 

Consiste de uma Irota de naves Invaso- 
ras extraterrenas, descendo no ptaneta 
Terra. Sua missAo e destruir as naves 
mvasoras dlspondo da arma de raios la 



RALLY 

16K 

Emocronante corrida de rally em urn la- 
birinto. onde poderao ser test ados sua 
habilidade e seus relievos Para conse 
guir seu mtento voce devera evitar car 
ros ataque e obstaculos em seu trajeto 



TK MAN 
16K 

Jogo animado onde deverio ser apaga- 
dos todos os pontinhos espalhados em 
um labirinto (o programs content 15 ti- 
pos de labirinto*. Voce sera impedido a 
qualquer custo. por 4 extraterrenos. 
guardiaes do labirinto. que poderao ser 
combatidos com cargas de raios-laser 



TKALC 

16K/64K 

Program* desenvolvido para caiculos 
numericos em planilha. 0 usuArio defi- 
ne as colunas. as tlnhas e as fbrmulas I 
aplicadas. Similar ao lamoso Visicalc ! 
De grande versatilidade. este programa 
permite a formulapAo de cAlculos cien- 
lilicos e comerciais. anaiise de tabelas 
numericas e outras aplicaqdes. 







